object FormMain: TFormMain Left = 195 Top = 110 Width = 533 Height = 335 Caption = 'ScriptCad' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu OldCreateOrder = False OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShortCut = FormShortCut PixelsPerInch = 96 TextHeight = 13 object IMAGE_PRINT: TImage Left = 0 Top = 0 Width = 105 Height = 105 AutoSize = True Visible = False OnMouseMove = IMAGE_VYKRESMouseMove end object P_ALL: TPanel Left = 10 Top = 40 Width = 500 Height = 233 BevelOuter = bvNone TabOrder = 0 object Splitter1: TSplitter Left = 160 Top = 0 Width = 3 Height = 233 Cursor = crHSplit end object P_SCRIPT: TPanel Left = 0 Top = 0 Width = 160 Height = 233 Align = alLeft BevelOuter = bvLowered Constraints.MinHeight = 200 Constraints.MinWidth = 100 TabOrder = 0 object P_SCRIPT_TOOLBAR: TPanel Left = 1 Top = 1 Width = 158 Height = 24 Align = alTop TabOrder = 0 object BtnNew: TSpeedButton Left = 1 Top = 1 Width = 23 Height = 22 Hint = 'Nov�' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF 0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF 0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF 0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF 0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000 0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005 5555557FFFFF7755555555500000005555555577777775555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnNewClick end object BtnOpenScr: TSpeedButton Left = 25 Top = 1 Width = 23 Height = 22 Hint = 'Otev��t script ...' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnOpenScrClick end object BtnSaveScr: TSpeedButton Left = 49 Top = 1 Width = 23 Height = 22 Hint = 'Ulo�it script' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F7330099999999900333777777777777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnSaveScrClick end end object P_SCRIPT_STATUS: TPanel Left = 1 Top = 210 Width = 158 Height = 22 Align = alBottom TabOrder = 1 object L_POZICE: TLabel Left = 3 Top = 4 Width = 15 Height = 13 Caption = '1:1' end end object MEMO_SCRIPT: TMemo Left = 1 Top = 25 Width = 158 Height = 185 Align = alClient PopupMenu = PopupMEMO_SCRIPT ScrollBars = ssBoth TabOrder = 2 WordWrap = False OnChange = MEMO_SCRIPTChange OnClick = MEMO_SCRIPTClick OnEnter = MEMO_SCRIPTEnter OnKeyUp = MEMO_SCRIPTKeyUp OnMouseDown = MEMO_SCRIPTMouseDown end end object P_VYKRES: TPanel Left = 163 Top = 0 Width = 337 Height = 233 Align = alClient BevelOuter = bvLowered Constraints.MinHeight = 200 Constraints.MinWidth = 337 TabOrder = 1 object P_VYKRES_TOOLBAR: TPanel Left = 1 Top = 1 Width = 335 Height = 24 Align = alTop TabOrder = 0 object BtnSavePic: TSpeedButton Left = 25 Top = 1 Width = 23 Height = 22 Hint = 'Ulo�it v�kres jako ...' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnSavePicClick end object BtnRefresh: TSpeedButton Left = 1 Top = 1 Width = 23 Height = 22 Hint = 'P�ekreslit' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777 57705557757777775FF7555555555555000755555555555F777F555555555550 87075555555555F7577F5555555555088805555555555F755F75555555555033 805555555555F755F75555555555033B05555555555F755F75555555555033B0 5555555555F755F75555555555033B05555555555F755F75555555555033B055 55555555F755F75555555555033B05555555555F755F75555555555033B05555 555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555 5555F777F7555555555501900555555555557777755555555555099055555555 5555777755555555555550055555555555555775555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnRefreshClick end object BtnPrintPic: TSpeedButton Left = 49 Top = 1 Width = 23 Height = 22 Hint = 'Vytisknout v�kres ...' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = BtnPrintPicClick end object ChL1: TLabel Left = 128 Top = 8 Width = 6 Height = 13 Caption = '1' end object ChL2: TLabel Left = 152 Top = 8 Width = 6 Height = 13 Caption = '2' end object ChL3: TLabel Left = 176 Top = 8 Width = 6 Height = 13 Caption = '3' end object ChL4: TLabel Left = 200 Top = 8 Width = 6 Height = 13 Caption = '4' end object ChL5: TLabel Left = 224 Top = 8 Width = 6 Height = 13 Caption = '5' end object ChL6: TLabel Left = 248 Top = 8 Width = 6 Height = 13 Caption = '6' end object ChL7: TLabel Left = 272 Top = 8 Width = 6 Height = 13 Caption = '7' end object ChL8: TLabel Left = 296 Top = 8 Width = 6 Height = 13 Caption = '8' end object ChL9: TLabel Left = 320 Top = 8 Width = 6 Height = 13 Caption = '9' end object Bevel1: TBevel Left = 72 Top = 2 Width = 2 Height = 20 Style = bsRaised end object L_VRSTVY: TLabel Left = 78 Top = 2 Width = 32 Height = 13 Caption = 'Vrstvy:' end object ChLayer1: TCheckBox Left = 112 Top = 1 Width = 15 Height = 17 TabOrder = 0 OnClick = ChLayer1Click end object ChLayer2: TCheckBox Left = 136 Top = 1 Width = 15 Height = 17 TabOrder = 1 OnClick = ChLayer2Click end object ChLayer3: TCheckBox Left = 160 Top = 1 Width = 15 Height = 17 TabOrder = 2 OnClick = ChLayer3Click end object ChLayer4: TCheckBox Left = 184 Top = 1 Width = 15 Height = 17 TabOrder = 3 OnClick = ChLayer4Click end object ChLayer5: TCheckBox Left = 208 Top = 1 Width = 15 Height = 17 TabOrder = 4 OnClick = ChLayer5Click end object ChLayer6: TCheckBox Left = 232 Top = 1 Width = 15 Height = 17 TabOrder = 5 OnClick = ChLayer6Click end object ChLayer7: TCheckBox Left = 256 Top = 1 Width = 15 Height = 17 TabOrder = 6 OnClick = ChLayer7Click end object ChLayer8: TCheckBox Left = 280 Top = 1 Width = 15 Height = 17 TabOrder = 7 OnClick = ChLayer8Click end object ChLayer9: TCheckBox Left = 304 Top = 1 Width = 15 Height = 17 TabOrder = 8 OnClick = ChLayer9Click end end object P_VYKRES_STATUS: TPanel Left = 1 Top = 210 Width = 335 Height = 22 Align = alBottom TabOrder = 1 object L_SOURADNICE: TLabel Left = 3 Top = 4 Width = 15 Height = 13 Caption = 'xxx' end end object ScrollBox_VYKRES: TScrollBox Left = 1 Top = 25 Width = 335 Height = 185 Align = alClient Color = clBtnFace ParentColor = False TabOrder = 2 OnMouseMove = ScrollBox_VYKRESMouseMove object IMAGE_VYKRES: TImage Left = 0 Top = 0 Width = 105 Height = 105 AutoSize = True PopupMenu = PopupIMAGE_VYKRES OnMouseDown = IMAGE_VYKRESMouseDown OnMouseMove = IMAGE_VYKRESMouseMove end end end end object MainMenu: TMainMenu Left = 104 object MnuScript: TMenuItem Caption = '&Script' object MnuNew: TMenuItem Caption = '&Nov�' OnClick = MnuNewClick end object MnuOpenScr: TMenuItem Caption = '&Otev��t script ...' OnClick = MnuOpenScrClick end object MnuSaveScr: TMenuItem Caption = 'Ulo�it &script' ShortCut = 113 OnClick = MnuSaveScrClick end object MnuSaveScrAs: TMenuItem Caption = 'Ulo�it s&cript jako ...' OnClick = MnuSaveScrAsClick end object N3: TMenuItem Caption = '-' end object MnuFont: TMenuItem Caption = '&Font ...' OnClick = MnuFontClick end object N1: TMenuItem Caption = '-' end object MnuKonec: TMenuItem Caption = 'Kon&ec' OnClick = MnuKonecClick end end object MnuVykres: TMenuItem Caption = '&V�kres' object MnuRefresh: TMenuItem Caption = 'P�ek&reslit' ShortCut = 116 OnClick = MnuRefreshClick end object MnuClear: TMenuItem Caption = 'Vymaza&t' OnClick = MnuClearClick end object MnuLayers: TMenuItem Caption = 'Zobrazen� vrst&ev' object MnuLayer1: TMenuItem Caption = '&1. vrstva' OnClick = MnuLayer1Click end object MnuLayer2: TMenuItem Caption = '&2. vrstva' OnClick = MnuLayer2Click end object MnuLayer3: TMenuItem Caption = '&3. vrstva' OnClick = MnuLayer3Click end object MnuLayer4: TMenuItem Caption = '&4. vrstva' OnClick = MnuLayer4Click end object MnuLayer5: TMenuItem Caption = '&5. vrstva' OnClick = MnuLayer5Click end object MnuLayer6: TMenuItem Caption = '&6. vrstva' OnClick = MnuLayer6Click end object MnuLayer7: TMenuItem Caption = '&7. vrstva' OnClick = MnuLayer7Click end object MnuLayer8: TMenuItem Caption = '&8. vrstva' OnClick = MnuLayer8Click end object MnuLayer9: TMenuItem Caption = '&9. vrstva' OnClick = MnuLayer9Click end object N9: TMenuItem Caption = '-' end object MnuLayerAll: TMenuItem Caption = 'Ozn&a� v�echny' OnClick = MnuLayerAllClick end object MnuLayerNone: TMenuItem Caption = '&Neozna� ��dnou' OnClick = MnuLayerNoneClick end end object MnuSavePic: TMenuItem Caption = 'Ulo�it &v�kres jako ...' OnClick = MnuSavePicClick end object MnuPrintPic: TMenuItem Caption = 'Vytisk&nout v�kres ...' OnClick = MnuPrintPicClick end end object MnuAbout: TMenuItem Caption = '&N�pov�da' object MnuNapObsah: TMenuItem Caption = 'O&bsah' OnClick = MnuNapObsahClick end object MnuNapHledat: TMenuItem Caption = '&Hledat' OnClick = MnuNapHledatClick end object N8: TMenuItem Caption = '-' end object MnuJazyk: TMenuItem Caption = '&Jazyk' object MnuJazyk_EN: TMenuItem Bitmap.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 08000000000000010000C40E0000C40E00000001000000000000000000004000 000080000000FF000000002000004020000080200000FF200000004000004040 000080400000FF400000006000004060000080600000FF600000008000004080 000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0 000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000 200080002000FF002000002020004020200080202000FF202000004020004040 200080402000FF402000006020004060200080602000FF602000008020004080 200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0 200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000 400080004000FF004000002040004020400080204000FF204000004040004040 400080404000FF404000006040004060400080604000FF604000008040004080 400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0 400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000 600080006000FF006000002060004020600080206000FF206000004060004040 600080406000FF406000006060004060600080606000FF606000008060004080 600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0 600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000 800080008000FF008000002080004020800080208000FF208000004080004040 800080408000FF408000006080004060800080608000FF608000008080004080 800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0 800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000 A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040 A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080 A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0 A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000 C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040 C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080 C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0 C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000 FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040 FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080 FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0 FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00828282828282 8282828282828282828282828282828282828282828282828282828282828282 828282828282828282820000000000000000000000000000000000E0E0E0E0E0 E0E0E0E0E0E0E0E0E00000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000E0E0E0E0E0 E0E0E0E0E0E0E0E0E00000FFFFFFFFFFFFFFFFFFFFFFFFFFFF00004343434343 4343E0E0E0E0E0E0E0000043FF43FF43FF43FFFFFFFFFFFFFF00004343434343 4343E0E0E0E0E0E0E00000FF43FF43FF4343FFFFFFFFFFFFFF00000000000000 0000000000000000000082828282828282828282828282828282828282828282 8282828282828282828282828282828282828282828282828282} Caption = 'An&glicky' Checked = True OnClick = MnuJazyk_ENClick end object MnuJazyk_CZ: TMenuItem Bitmap.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 08000000000000010000C40E0000C40E00000001000000000000000000004000 000080000000FF000000002000004020000080200000FF200000004000004040 000080400000FF400000006000004060000080600000FF600000008000004080 000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0 000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000 200080002000FF002000002020004020200080202000FF202000004020004040 200080402000FF402000006020004060200080602000FF602000008020004080 200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0 200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000 400080004000FF004000002040004020400080204000FF204000004040004040 400080404000FF404000006040004060400080604000FF604000008040004080 400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0 400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000 600080006000FF006000002060004020600080206000FF206000004060004040 600080406000FF406000006060004060600080606000FF606000008060004080 600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0 600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000 800080008000FF008000002080004020800080208000FF208000004080004040 800080408000FF408000006080004060800080608000FF608000008080004080 800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0 800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000 A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040 A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080 A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0 A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000 C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040 C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080 C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0 C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000 FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040 FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080 FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0 FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00828282828282 8282828282828282828282828282828282828282828282828282828282828282 82828282828282828282000000000000000000000000000000000003E0E0E0E0 E0E0E0E0E0E0E0E0E000004343E0E0E0E0E0E0E0E0E0E0E0E00000030303E0E0 E0E0E0E0E0E0E0E0E000000303030303E0E0E0E0E0E0E0E0E000000303030303 FFFFFFFFFFFFFFFFFF0000434343FFFFFFFFFFFFFFFFFFFFFF00000303FFFFFF FFFFFFFFFFFFFFFFFF000003FFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000 0000000000000000000082828282828282828282828282828282828282828282 8282828282828282828282828282828282828282828282828282} Caption = '�&esky' OnClick = MnuJazyk_CZClick end end object N2: TMenuItem Caption = '-' end object MnuOprogramu: TMenuItem Caption = '&O programu' OnClick = MnuOprogramuClick end end end object SaveDialog1: TSaveDialog Left = 136 end object OpenDialog1: TOpenDialog Left = 168 end object SavePictureDialog1: TSavePictureDialog Left = 200 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 232 end object PrintDialog1: TPrintDialog Left = 272 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 304 end object PopupMEMO_SCRIPT: TPopupMenu Left = 344 object PopMemoNew: TMenuItem Caption = 'Nov�' OnClick = PopMemoNewClick end object PopMemoOpenScr: TMenuItem Caption = 'Otev��t script ...' OnClick = PopMemoOpenScrClick end object PopMemoSaveScr: TMenuItem Caption = 'Ulo�it script' OnClick = PopMemoSaveScrClick end object PopMemoSaveScrAs: TMenuItem Caption = 'Ulo�it script jako ...' OnClick = PopMemoSaveScrAsClick end object N7: TMenuItem Caption = '-' end object PopMemoFont: TMenuItem Caption = 'Font ...' OnClick = PopMemoFontClick end end object PopupIMAGE_VYKRES: TPopupMenu Left = 376 object PopLine: TMenuItem Caption = '�se�ka (2 kliky)' OnClick = PopLineClick end object PopDimLine: TMenuItem Caption = 'K�ta (2 kliky)' OnClick = PopDimLineClick end object PopText: TMenuItem Caption = 'Text (1 klik)' OnClick = PopTextClick end object N6: TMenuItem Caption = '-' end object PopPoint: TMenuItem Caption = 'Bod (1 klik)' OnClick = PopPointClick end object PopFillArea: TMenuItem Caption = 'V�pl� (1 klik)' OnClick = PopFillAreaClick end object PopRectangle: TMenuItem Caption = 'Obdeln�k (2 kliky)' OnClick = PopRectangleClick end object PopCircle: TMenuItem Caption = 'Kru�nice (2 kliky)' OnClick = PopCircleClick end object PopCirclePart: TMenuItem Caption = '��st kru�nice (2 kliky)' OnClick = PopCirclePartClick end object PopEllipse: TMenuItem Caption = 'Elipsa (2 kliky)' OnClick = PopEllipseClick end object PopPicture: TMenuItem Caption = 'Obr�zek (1 klik)' OnClick = PopPictureClick end object N4: TMenuItem Caption = '-' end object PopGlobals: TMenuItem Caption = 'Glob�ln� prom�nn�' OnClick = PopGlobalsClick end object PopLayer: TMenuItem Caption = 'Vrstva' OnClick = PopLayerClick end object PopProcedure: TMenuItem Caption = 'Procedura' OnClick = PopProcedureClick end object PopComment: TMenuItem Caption = 'Koment��' OnClick = PopCommentClick end object N5: TMenuItem Caption = '-' end object PopZrusAkci: TMenuItem Caption = 'Zru� kreslic� akci' OnClick = PopZrusAkciClick end end end